home *** CD-ROM | disk | FTP | other *** search
/ Small Time Crooks Press Kit / Small Time Crooks Press Kit.iso / pc / Small Time Crooks.dxr / Scripts_12_Action Overlay.ls < prev    next >
Encoding:
Text File  |  2000-04-30  |  834 b   |  41 lines
  1. property pHandler
  2.  
  3. on mouseEnter me
  4.   nothing()
  5. end
  6.  
  7. on mouseDown me
  8.   do(pHandler)
  9. end
  10.  
  11. on mouseUp me
  12.   nothing()
  13. end
  14.  
  15. on mouseLeave me
  16.   nothing()
  17. end
  18.  
  19. on mouseWithin me
  20.   nothing()
  21. end
  22.  
  23. on getPropertyDescriptionList me
  24.   set description to [:]
  25.   addProp(description, #pHandler, [#default: "nothing", #format: #string, #comment: "Hander to Execute on mouseDown"])
  26.   return description
  27. end
  28.  
  29. on getBehaviorDescription me
  30.   set endChar to offset("--END OF HEADER", the text of me)
  31.   set endLine to the number of lines in char 1 to endChar of the text of me - 1
  32.   set description to line 1 to endLine of the text of me
  33.   repeat with whichLine = endLine down to 1
  34.     if line whichLine of description = EMPTY then
  35.       delete line whichLine of description
  36.     end if
  37.   end repeat
  38.   delete line 1 of description
  39.   return description
  40. end
  41.